home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / ENUMDBL2.M < prev    next >
Encoding:
Modula Definition  |  1990-10-22  |  274 b   |  17 lines
  1. DEFINITION MODULE A;
  2.  
  3. TYPE Enum = (one, two, three);
  4.      Rec = RECORD e: Enum END;
  5.  
  6. END A.
  7.  
  8. MODULE B;
  9.  
  10. FROM A IMPORT Rec;
  11. FROM A IMPORT one;
  12. FROM A IMPORT two; (* hier darf kein Fehler kommen *)
  13. (* hier muß ein Fehler kommen: *)
  14. FROM A IMPORT Enum;
  15.  
  16. END B.
  17.